(close_load_descs) [WINDOWS_NT]: Don't actually do anything.

(read_escape): Detect READCHAR reporting eof.

diff --git a/src/lread.c b/src/lread.c
index f90bdb2ef2daea009c428d313e00e79af8849559..be43d7f2959cf1fdb685d67ed724f597d3e2c90c 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -516,9 +516,11 @@ load_descriptor_unwind (oldlist)
 void
 close_load_descs ()
 {
+#ifndef WINDOWSNT
   Lisp_Object tail;
   for (tail = load_descriptor_list; !NILP (tail); tail = XCONS (tail)->cdr)
     close (XFASTINT (XCONS (tail)->car));
+#endif
 }
 \f
 static int
@@ -1003,6 +1005,9 @@ read_escape (readcharfun)
   register int c = READCHAR;
   switch (c)
     {
+    case -1:
+      error ("End of file");
+
     case 'a':
       return '\007';
     case 'b':